home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / C64 / BBS / EBBS64V3.ARC / 64 FILEMAKER (.txt) < prev    next >
Commodore BASIC  |  2000-06-30  |  3KB  |  54 lines
  1. 1000 R$=CHR$(13):S$=CHR$(32):POKE53280,6:POKE53281,1:PRINT"[147][154]";
  2. 1010 PRINT"                                        ";
  3. 1020 PRINT"   [195]REATE [197][194][194][211] 64 [211]YSTEM [196]ISK [205]ODULE    ";
  4. 1030 PRINT"                                        ";
  5. 1040 PRINT"      [197][194][194][211] 64 WRITTEN BY [197]D [208]ARRY       ";
  6. 1050 PRINT"                                        
  7. 1060 [153]"STOP  RIGHT$NSERT  A  STR$RIGHT$(null)(null) TO  BECOME YOUR VALPEEKPEEK(null)
  8. 1070 PRINT"  FILES DISK AND PRESS THE [210][197][212][213][210][206] KEY.
  9. 1080 [153]"   (null)(null)(null)VAL : (null)HIS WILL FORMAT YOUR DISK.
  10. 1090 PRINTSPC(8)"[154]([212]AKES ABOUT 10 MINUTES)
  11. 1100 [161]K$:[139]K$[179][177][199](13)[167]1100
  12. 1110 [159]15,8,15,"N0:EBBS 64 FILES,EP":[153]"ASCORMATTING STR$ISK...
  13. 1120 PRINT#15,"UI":PRINT#15,"I0":CLOSE15:PRINT"[145][195]REATING THESE FILES:
  14. 1130 [153]"DATE - SYSTEM DATE":[159]8,8,8,"0:DATE,S,W":[152]8,"870530":[160]8
  15. 1140 [153]"LAST CALLER - LAST SYSTEM CALLER
  16. 1150 OPEN8,8,8,"0:LAST CALLER,S,W":PRINT#8,"[197]D [208]ARRY":PRINT#8,1:CLOSE8:PRINT"OB - OPENING BULLETIN
  17. 1160 [159]8,8,8,"0:OB,S,W":[152]8,"(null)PENING PEEKULLETIN GOETH HERE":[160]8
  18. 1170 [153]"NULOM - NEW USERS LOGON MESSAGE":[159]8,8,8,"NULOM,S,W
  19. 1180 PRINT#8,"[215]ELCOME NEW USER...":CLOSE8:FORI=1TO5:PRINT"INDEX"I"- MESSAGE BASE"I"INDEX
  20. 1190 [159]8,8,8,"0:INDEX"[170][196](I)[170]",S,W":[152]8,"0":[160]8:[130]
  21. 1200 [153]"TM - TEXT MENU":[159]8,8,8,"0:TM,S,W":[152]8,"(null)EXT (null)ENU (VALXAMPLES)"R$S$
  22. 1210 [152]8,"(ATN) (null)YSTEM RIGHT$NFO"R$"(PEEK) (null)THER PEEKPEEK(null) (null)UMBERS"R$"(LEN) LEN64 RIGHT$NFO"
  23. 1220 [152]8,"(STR$) LEN128 RIGHT$NFO"R$"((null)) (null)AIN (null)ENU":[160]8
  24. 1230 [153]"MM - MAIN MENU":[159]8,8,8,"0:MM,S,W":[152]8,"(null)AIN (null)ENU"R$S$
  25. 1240 [152]8,"(ATN) (null)ESSAGE (null)ECTION
  26. 1250 PRINT#8,"([194]) [207]PENING [194]ULLETIN"R$"([195]) [196]ISPLAY [195]ALLER [204]OG
  27. 1260 [152]8,"(STR$) STR$ATE & (null)IME"R$"(VAL) (null)END (null)ERSONAL (null)AIL
  28. 1270 PRINT#8,"([198]) [211]END [211]YSOP [198]EEDBACK"R$"([205]) [210]EAD [217]OUR [205]AIL
  29. 1280 [152]8,"((null)) LENHANGE (null)OUR (null)ASSWORD"R$"((null)) (null)UIT/(null)OGOFF"R$"((null)) (null)EXT (null)ECTION
  30. 1290 PRINT#8,"([213]) [213]SER [211]EARCH/[196]ISPLAY"R$"([214]) [197][194][194][211] [214]ERSION/[201]NFORMATION
  31. 1300 [152]8,"((null)) (null)AGE (null)YSOP FOR LENHAT"R$"(*) (null)OGGLE ATNUTO-(null)AUSE":[160]8
  32. 1310 [153]"SM - SYSOP MENU":[159]8,8,8,"0:SM,S,W":[152]8,"(null)YSOP (null)ENU"R$S$
  33. 1320 [152]8,"($) STR$ISKCLOSESTR$IRECTORY"R$"(@) (null)END STR$ISK LENOMMAND"R$"(ATN) (null)ESSAGE PEEKASE
  34. 1330 PRINT#8,"([194]) [211]YSOP [194]ULLETIN"R$"([196]) [210]ESET [211]YSTEM [196]ATE"R$"([203]) [196]ELETE [198]EEDBACK
  35. 1340 [152]8,"((null)) (null)OAD/VALDIT (null)YSTEM ASCILE"R$"(LEFT$) LEFT$ARDCOPY ASCILE"
  36. 1350 [152]8,"((null)) (null)EW (null)SER (null)OG"R$"((null)) (null)UIT/(null)OGOFF
  37. 1360 PRINT#8,"([210]) [210]EAD [198]ILE"R$"([212]) [210]ESET [211]YSTEM [212]IME
  38. 1370 [152]8,"((null)) ATNDD/VALDIT (null)SERFILE"R$"((null)) (null)RITE (null)YSTEM ASCILE
  39. 1380 PRINT#8,"([216]) [193]DD/[197]DIT [196][204] [198]ILE"R$"([218]) [213][204]/[196][204] [211]ECTION"R$"(^) [210]ETURN TO [194][194][211]":CLOSE8
  40. 1390 PRINT"ID - SYSTEM IDENTIFICATION":OPEN8,8,8,"0:ID,S,W
  41. 1400 [152]8," *===========================*":[152]8," RIGHT$  (null)ELCOME TO VALPEEKPEEK(null) 64 V3.0  RIGHT$
  42. 1410 PRINT#8," [201]   [204]OCATED IN MY [200][207][205][197][212][207][215][206]  [201]":PRINT#8," [201] [207]PERATED BY A NICE FELLOW [201]
  43. 1420 [152]8," RIGHT$     (null)PEN 24 HOURS/7 DAYS  RIGHT$":[152]8," RIGHT$  VALPEEKPEEK(null) (null)RITTEN BY VALD (null)ARRY RIGHT$
  44. 1430 PRINT#8," *===========================*":CLOSE8
  45. 1440 OPEN15,8,15,"I":PRINT"USERS - 250 USERFILES":S$=CHR$(32):R$=CHR$(13):A$="
  46. 1450 [129]K[178]1[164]20:A$[178]A$[170]S$[170]R$:[130]:[159]6,8,6,"0:USERS,L,"[170][199](127):[152]15,"P"[199](6)[199](250)[199](0)[199](1)
  47. 1460 [152]6,A$:[132]15,A,B$,C,D:[160]6:[160]15:[159]15,8,15:[159]8,8,8,"0:USERS":[129]X[178]1[164]250
  48. 1470 [152]15,"P"[199](8)[199](X)[199](0)[199](1):[152]8,A$:[130]:[160]15:[160]8:[129]X[178]1[164]5
  49. 1480 [153]"DL"X" - TRANSFER CONTROL FILE"X:[159]15,8,15:[159]8,8,8,"DL"[170][196](X)[170]",L,"[170][199](115)
  50. 1490 [152]15,"P"[199](8)[199](35)[199](0)[199](1):[152]8,A$:[160]8:[132]15,A,B$,C,D:[152]15,"I":[160]15
  51. 1500 [159]15,8,15:[159]8,8,8,"DL"[170][196](X):[129]I[178]1[164]35:[152]15,"P"[199](8)[199](I)[199](0)[199](1)
  52. 1510 [152]8,A$:[130]:[160]8:[152]15,"I0":[160]15:[130]:[153]"STOPPEEKPEEK(null) FILES DISK CREATED.
  53. 1520 PRINT"[197]NSURE TO RUN 64 CONFIG MODULE. [197]P
  54.